home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1132copy.txt < prev    next >
Encoding:
Text File  |  1996-03-06  |  1.3 KB  |  37 lines
  1. if newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. title number = "1132"
  4. Company = "Lucas Arts"
  5. title = "Tie Fighter"
  6. Price = 54.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "PC CD-ROM"
  13. Title Description = "Through their treachery on Yavin, the Alliance of Rebels and other criminals has threatened the very foundation of the empire. Join the emperor's cause in eliminating this rebel uprising as the empire strikes back! Over 100 adrenaline-pumping missions you can fly non-sequentially. -- Also available for PC 3.5"."
  14. -------------------------------------
  15. dline = ""
  16. counter = 0
  17. repeat while dline <> title number
  18. counter = counter + 1
  19. dline = GetWord(1,   GetLine(titl,counter) )   
  20. test(dline = title number, LineInTitle = counter)
  21. end repeat 
  22. starttitle = LineInTitle
  23. num of titles shown = 6
  24. endtitle = starttitle + num of titles shown - 1
  25. titles = ""
  26. title highlight = ""
  27. repeat with counter = starttitle to endtitle
  28. nextline = GetLine(titl,counter)
  29. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  30. title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  31. end repeat
  32. dpage = CurrentPageID
  33.  
  34. newtitle = FALSE
  35. end if
  36.  
  37.